home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / rlib.zip / RL_RJUST.PRG < prev    next >
Text File  |  1993-01-04  |  257b  |  9 lines

  1. * Function: RJUSTIFY
  2. * Author..: Richard Low
  3. * Syntax..: RJUSTIFY( exp<C> )
  4. * Returns.: exp<C> with any trailing spaces put in front of exp<C>
  5.  
  6. FUNCTION RJUSTIFY
  7. PARAMETER p_string
  8. RETURN (SPACE(LEN(p_string)-LEN(TRIM(p_string))) + TRIM(p_string))
  9.